Public Class clAlerta

    Dim _texto As String = ""
    Public Sub New(ByVal texto As String)
        _texto = texto
    End Sub
    Public Sub New()

    End Sub
    Public Property Texto() As String
        Get
            Return _texto
        End Get
        Set(ByVal value As String)
            _texto = value
        End Set
    End Property
End Class
